#!/usr/bin/perl

sub display
{
	print "11111.\n";
	exit 1;
	print "22222.\n";
}

display ();

END
{
	print "33333.\n";
}
